home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Recent Doc Activate 1.xpl < prev    next >
Text File  |  2004-02-08  |  1KB  |  42 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Common"
  5. "NAME"="Recent Documents (Activated)"
  6. "VERSION"="3.04"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0001111"
  9. "TEXT 1"="Create Recent Document shortcuts"
  10. "DESCRIPTION 1"="If you do not want that Windows creates any entries to your "Documents" menu inside the Start Menu, deactivate this option."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com/"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="Thanks to Jon-Roar Selenius [jseleniu@online.no] for spotting the "Recent Documents always empty" bug."
  15.  
  16.  
  17. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsHistory"
  18.  
  19. SUB Plugin_Initialize
  20.  i=RegReadValue(sV1) 
  21.  If IsEmpty(i) or i=0 then SetUIElement 1,true
  22. END SUB
  23.  
  24. SUB Plugin_CheckData(ElementIndex)
  25. END SUB
  26.  
  27. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  28.  b=GetUIElement(1)
  29.  if b=true then
  30.     if RegValueExists(sV1) then 
  31.        Call RegDeleteValue(sV1)
  32.     end if
  33.  else 
  34.     Call RegWriteValue(sV1,1,2)
  35.  end if
  36.  
  37.  Call Logoff()
  38. END SUB
  39.  
  40. SUB Plugin_Terminate
  41. END SUB
  42.